object TarpitForm: TTarpitForm Left = 206 Top = 137 Width = 793 Height = 502 BorderStyle = bsSizeToolWin Caption = 'Tarpitted IPs' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Microsoft Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object TarpitPanel: TTntPanel Left = 0 Top = 0 Width = 785 Height = 475 Align = alClient BevelOuter = bvNone TabOrder = 0 object TarpitList: TExtListViewManagement Left = 0 Top = 0 Width = 785 Height = 449 RowSelect = True AutoColumnSort = acsSortToggle AutoSortStyle = assDefault NoColumnResize = False ShowSortArrows = True Align = alClient Columns = < item Caption = 'IP' Width = 100 end item Caption = 'Host' Width = 180 end item Caption = 'Reason' Width = 60 end item Caption = 'Expires' Width = 220 end item Caption = 'Tarpitted' Width = 220 end> ReadOnly = True HideSelection = False MultiSelect = True PopupMenu = ConfigForm.ListViewPopup TabOrder = 0 ViewStyle = vsReport ButtonAdd = AddButton ButtonDelete = DeleteButton OnItemDisplay = TarpitListItemDisplay OnItemAdd = TarpitListItemAdd OnItemDelete = TarpitListItemDelete end object BottomPanel: TTntPanel Left = 0 Top = 449 Width = 785 Height = 26 Align = alBottom BevelOuter = bvNone TabOrder = 1 object DeleteButton: TTntButton Left = 156 Top = 2 Width = 72 Height = 23 Caption = 'Remove' Enabled = False TabOrder = 2 end object RemoveExpired: TTntButton Left = 232 Top = 2 Width = 120 Height = 23 Caption = 'Remove All Expired' TabOrder = 3 OnClick = RemoveExpiredClick end object RemoveAllButton: TTntButton Tag = 1 Left = 356 Top = 2 Width = 84 Height = 23 Caption = 'Remove All' TabOrder = 4 OnClick = RemoveExpiredClick end object AddButton: TTntButton Left = 80 Top = 2 Width = 72 Height = 23 Caption = 'Add...' Enabled = False TabOrder = 1 end object RefreshButton: TTntButton Tag = 1 Left = 4 Top = 2 Width = 72 Height = 23 Caption = 'Refresh' TabOrder = 0 OnClick = RefreshButtonClick end end end end